(and (=0 *Scl) (scl 6))

(javaImport java.lang.StrictMath)

(de pow (A Y)
  (java
    (StrictMath.pow
      (double: A *Scl)
      (double: Y *Scl))
    *Scl))

(de exp (A)
  (java
    (StrictMath.exp
      (double: A *Scl))
    *Scl))

(de log (A)
  (java
    (StrictMath.log
      (double: A *Scl))
    *Scl))

(de sin (A)
  (java
    (StrictMath.sin
      (double: A *Scl))
    *Scl))

(de cos (A)
  (java
    (StrictMath.cos
      (double: A *Scl))
    *Scl))

(de tan (A)
  (java
    (StrictMath.tan
      (double: A *Scl))
    *Scl))

(de asin (A)
  (java
    (StrictMath.asin
      (double: A *Scl))
    *Scl))

(de acos (A)
  (java
    (StrictMath.acos
      (double: A *Scl))
    *Scl))

(de atan (A)
  (java
    (StrictMath.atan
      (double: A *Scl))
    *Scl))

(de atan2 (A Y)
  (java
    (StrictMath.atan
      (double: A *Scl)
      (double: Y *Scl))
    *Scl))

(de floor (A)
  (java
    (StrictMath.floor
      (double: A *Scl))
    *Scl))

(de ceil (A)
  (java
    (StrictMath.ceil
      (double: A *Scl))
    *Scl))

(setq pi (java StrictMath.PI *Scl))

(setq pi/2 (/ pi 2))